home *** CD-ROM | disk | FTP | other *** search
- 0 ifpeek(49152)=1 then poke49152,0:goto14
- 1 ifa=0 then a=1:load"zs",8,1
- 2 ifa=1 then a=2:load"c800",8,1
- 4 ifa=2 then a=3:le$="level ":input"level";ll$:le$=le$+ll$
- 5 ifa=3 then a=4:loadle$,8,1
- 6 poke53272,29:sys51200
- 7 fori=1024 to 1024+999:ifpeek(i)=73 then s=s+1:pokei,42
- 8 next
- 9 print"taste[154]":poke198,0:wait198,1
- 10 print"[147]anzahl symbole:";s;chr$(13);"[154]seq-datei = ";"l ";ll$;"[154]"
- 11 rem--------------------------------
- 12 if peek(49152)<>1 then poke49152,1:poke53272,21:list 13-50:end
- 13 rem--------------------------------
- 14 poke 49152,0:l$="l 00":rem seq-datei
- 15 rem--------------------------------
- 16 rem bei dummy datei bei lv letztes level eingeben
- 17 rem und leitermauer wert 9
- 18 rem--------------------------------
- 20 lv=00:rem level
- 21 rem==---------
- 30 sy=00:rem anzahl symbole
- 31 rem==-------------------
- 40 lm=0:rem leitermauer unten 0=aus1=an
- 41 rem= 2=leiter statt mauer
- 42 rem----------------------------
- 50 lu=0:rem leitermauer oben 0=aus 1=an
- 51 rem= 2=leiter statt mauer
- 60 rem----------------------------
- 500 open 1,8,2,"@:"+l$+",s,w"
- 520 print#1,lv
- 525 print"level = ";lv
- 530 print#1,sy
- 535 print"anzahl symbole = ";sy
- 540 print#1,lm
- 542 print#1,lu
- 545 print"leiter unten = ";lm
- 547 print"leiter oben = ";lu
- 640 close 1
-